[PERL] Erro pra criar arquivos na área de trabalho

BarbaNegra
(usa Ubuntu)

Enviado em 30/07/2012 - 14:03h

Olá, criei um script q serve como um lembrete salvando as mensagens na área de trabalho, porém, ele n cria o arquivo quando eu mudo de pasta funciona perfeitamente só com a área de trabalho que dá erro, alguém pode me ajudar? creio que o problema está no caminho da área de trabalho. Obrigado


system ("clear");

print "Title: ";
chomp ($title=<STDIN>);

print "\n\n Lembre-me sobre: ";
chomp ($about=<STDIN>);

open (REM,">>/home/rask8/\"Área de Trabalho\"$title");

print REM "$about";

close (REM);

_di0
(usa FreeBSD)

Enviado em 11/08/2012 - 13:19h

Não precisa escapar os espaços do diretório, colocando uma "sub-aspas", ao mandar para saída padrão uma string, as aspas já são suficiente, portanto:

open (REM,">>/home/rask8/\"Área de Trabalho\"$title");

ficaria

open (REM,">>/home/rask8/Área de Trabalho/$title");

Sugiro usar as pragmas strict e warnings nos seu scripts Perl, a segunda mostrou algumas mensagens warnings,
como no caso de usar variáveis sem declará-las em um determinado escopo, dessa maneira, para não retornar mensagens
warnings:

print "Title: ";
chomp (my $title=<STDIN>);

print "\n\n Lembre-me sobre: ";
chomp (my $about=<STDIN>);

mais sobre strict e warnings respectivamente:

http://perldoc.perl.org/strict.html
http://perldoc.perl.org/warnings.html